unit TWorkOrder;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TWorkOrderVO = class(TDataTransferObject)
  private
    FWorkNo: string;
    FAssignNo: string;
    FFixType: string;
    FContactTel:String;
    FContactAddr:String;
    FReportTime:String;
    FFixStartTime:String;
    FFixEndTime:String;
    FAssignTime:String;
    FMachineId:String;
    FCustId:String;
    FFaultReport:String;
    FFixCode:String;
    FDeptId:String;
    FStatus:String;
    FFinishStatus:String;
    FSource:String;
    FFaultType:String;
    FWarrantyType:String;
    FCustReq:String;
    FOperId:String;
    FAppointTime:String;
    FSiteId:String;
    FPartsChange:String;
    FRepeateWorkNo:String;
    FCancleFlag:String;
    FPriority:String;
    FInfo1:String;
    FInfo2:String;
  published
    property PK_work_no: string index 0 read FWorkNo write FWorkNo;
    property assign_no: string index 1 read FAssignNo write FAssignNo;
    property fix_type: String index 2 read FFixType write FFixType;
    property contact_tel: String index 3 read FContactTel write FContactTel;
    property contact_addr: string index 4 read FContactAddr write FContactAddr;
    property report_time: string index 5 read FReportTime write FReportTime;
    property fix_start_time: string index 6 read FFixStartTime write FFixStartTime;
    property fix_end_time: string index 7 read FFixEndTime write FFixEndTime;
    property assign_time: string index 8 read FAssignTime write FAssignTime;
    property machine_id: string index 9 read FMachineId write FMachineId;
    property cust_id: string index 10 read FCustId write FCustId;
    property fault_report: string index 11 read FFaultReport write FFaultReport;
    property fix_code: string index 12 read FFixCode write FFixCode;
    property deptId: string index 13 read FDeptId write FDeptId;
    property status: string index 14 read FStatus write FStatus;
    property finish_status: string index 15 read FFinishStatus write FFinishStatus;
    property source: string index 16 read FSource write FSource;
    property fault_type: string index 17 read FFaultType write FFaultType;
    property warranty_type: string index 18 read FWarrantyType write FWarrantyType;
    property cust_req: string index 19 read FCustReq write FCustReq;
    property oper_id: string index 20 read FOperId write FOperId;
    property appoint_time: string index 21 read FAppointTime write FAppointTime;
    property site_id: string index 22 read FSiteId write FSiteId;
    property parts_change: string index 23 read FPartsChange write FPartsChange;
    property repeate_work_no: string index 24 read FRepeateWorkNo write FRepeateWorkNo;
    property cancle_flag: string index 25 read FCancleFlag write FCancleFlag;
    property priority: string index 26 read FPriority write FPriority;
    property info1: string index 27 read FInfo1 write FInfo1;
    property info2: string index 28 read FInfo2 write FInfo2;
    
  public
    constructor Create();
    procedure Reset();
  end;  


implementation

constructor TWorkOrderVO.Create();
begin
  inherited Create;
  tbName := 'inf_work_order';
  SetLength(GridInfo, 5);
end;

procedure TWorkOrderVO.Reset();
begin
  FWorkNo  := '-999';
  FAssignNo:= '-999';
  FFixType := '-999';
  FContactTel := '-999';
  FContactAddr:= '-999';
  FReportTime := '-999';
  FFixStartTime:= '-999';
  FFixEndTime := '-999';
  FAssignTime := '-999';
  FMachineId  := '-999';
  FCustId     := '-999';
  FFaultReport:= '-999';
  FFixCode    := '-999';
  FDeptId := '-999';
  FStatus := '-999';
  FFinishStatus := '-999';
  FSource   := '-999';
  FFaultType:= '-999';
  FWarrantyType:= '-999';
  FCustReq  := '-999';
  FOperId   := '-999';
  FAppointTime:= '-999';
  FSiteId  := '-999';
  FPartsChange:= '-999';
  FRepeateWorkNo:= '-999';
  FCancleFlag:= '-999';
  FPriority  := '-999';
  FInfo1 := '-999';
  FInfo2 := '-999';

end;

end.
